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Sgt Bob Wilson says the Criminal Justice Data System is helping detectives pool their data on crimes, to aid in predicting the likely times and locations of 
future crimes. (Photo Courtesy of Eugene Register-Guard.) 
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Consider the following, with respect to 
modern law enforcement: Inflation con- 
tinually increases the cost of manpower and 



equipment. Pressure is on legislative bodies 
everywhere to hold back taxation, bringing a 
corresponding reduction in services. Yet 
criminal activity is on the increase, from 
cities to suburbs. 

How, then, are modern law enforcement 
agencies to operate, and continue to do their 
job. In Lane County, Oregon, computing 
power and graphic output were chosen as a 
means to increase the efficiency of law 
enforcement throughout the county. And the 
new tools that they're using include 4052 and 



4054 Graphic Computing Systems. Let's 
take a look at what's being done. 

Some History 

In Lane County, local governments have 
historically cooperated for the benefit of 
county residents. One area of cooperation is 
the Lane County Regional Information 
System, formed in the mid-sixties as a 
cooperative effort of Lane County and 
the cities of Eugene and Springfield, along 
with other local government agencies. The 
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Regional Information System contains 
several kinds of data systems, and serves as a 
central coordination and management point. 

The Criminal Justice Data System (CJDS) is 
one of the major projects of the Regional 
Information System, and is of central impor- 
tance here. The CJDS was started in 1963 to 
meet the needs of local police, and evolved by 
1976 into an integrated information system. 
The CJDS was linked with Geographic Data 
System (discussed later) to provide a major 
graphic benefit to the law enforcement per- 
sonnel. This link has allowed the system to 
analyze and display public safety data by 



The Criminal Justice Data System is jointly 
funded and maintained by all of the law 
enforcement and criminal justice agencies 
throughout Lane County. All official acts of 
this law enforcement community are record- 
ed in the data base of the Criminal Justice 
Data System. And that data base is used 
daily by officers from the cities of Eugene, 
Springfield, and Cottage Grove, as well as 
Lane County Sheriffs deputies. 

All of this information is recorded in the 
CJDS IBM computer, 

and is available through any of the law 
enforcement agencies in the system, helping , 
personnel to manage their daily activities 
quickly and accurately. Their access is 
through more than 90 terminals that operate 
24 hours a day, every day of the year. Most of 
these terminals provide readout in 
alphanumeric form, but interest in graphics 
is growing daily as they use the graphic 
systems. 

In fact, you might view graphics a major 
component of the Operations /Crime 
Analysis section of the Eugene Police 
Department. This section, funded since 1978 
by the Law Enforcement Assistance Ad- 
ministration (LEAA), is part of the very 
successful Integrated Criminal Apprehen- 
sion Program (ICAP). Through a 
cooperative effort, the Eugene Police and the 
CJDS' have used the resources of the 
criminal justice data base and the geographic 
data system, to supply an enhanced graphic 
information system to local law enforcement 
agencies. But before we look at the crime 
analysis graphics tool, let's take a look at the 
geographic data system that provides the 
base for ICAP's mapping output. 



The Geographic Data System 

The Geographic Data System is jointly 
funded and developed by Eugene, 
Springfield, Lane County, and the Lane 



Council of Governments. The system 
provides a standardized collection of com- 
puterized locational information, with data 
identified and interrelated by (x,y) coor- 
dinates derived from the Oregon State Plane 
Coordinate System. The system also in- 
cludes a set of techniques and procedures 
that let the user manipulate and display the 
geographic information, creating specialized 
maps. 

The key to the Geographic Data System is 
the system address file, which provides a 
complete standardized set of site addresses in 
Lane County. For each of those addresses in 
the County, there is an address record that 
contains the state plane coordinates for that 
address. So, any data that contains addresses 
can be entered into the system and analyzed 
geographically. 

The basis for graphics in the system is the 
parcel file. The parcel file contains the 
digitized parameters of all land ownership 
parcels (homes, businesses) and land use 
parcels (parks, public lands), along with 
streets, rivers, and other geographic features, 
to build a complete map base for the system. 
This file has two main uses in the system: It 
serves as the source for other special purpose 
files, and it is used for drawing maps on a 
plotter or on a graphics terminal. In addi- 
tion, the parcel file supplies land use infor- 
mation that allows users to separate, for 
example, the addresses of service stations 
from those of grocery stores. This also turns 
out to be of benefit to the law enforcement 
officers that use the CJDS facilities. 



Mapping Crime 

Look at the possibilities that the address file 
holds for law enforcement use: crime inci- 
dent addresses, for instance, can be matched 
to the data in the address files, attaching 
geographic coordinates. Crime incidents can 
thus be analyzed by location, and plotted or 
displayed on the Geographic Data System 
base map. Compare this with the pin map of 
''crime in the city,'' so prevalent in detective 
dramas. Except this map resides in the 
computer, to be called upon as needed. The 
map can be "blown up," to zero in on a 
particular area. And each "pin" represents a 
lot more information than a map pin ever 
could, and can be sorted and displayed on 
the basis of any one piece of that informa- 
tion, or a combination of those pieces. (See 
Fig. 1.) 

Now, using the combined power of the 
Criminal Justice Data and the Geographic 
Data Systems, officers can produce maps 
and reports showing where different types of 



crimes occur. And Ken Hanfland, a crime 
analyst with the Eugene PoUce Department's 
operations/ crime analysis section, uses the 
interactive graphics capabilities of the 
system to select an area and display criminal 
activity within that area. Or to look for a 
particular type of criminal activity, and 
produce a map showing where those ac- 
tivities have occurred, then zero in on those 
areas. Figures 2 and 3 are examples of this 
technique. 

Officers also select from the information in 
the files to produce specialized maps. For 
example, by searching for type of crime and 
time of day, an officer can quickly produce a 
map that shows the location of nighttime 
residential burglaries during the last month. 
In addition to these mapping activities, area 
law enforcement agencies are experimenting 
with the Rand Corporation's Patrol Car 
Allocation Model (PCAM) and a locally- 
developed simulation model. A combination 
of these tools will be used with the graphics 
system to present agency personnel with 
usable tactical data and strategic decision- 
making alternatives. 

Some Benefits 

The mapping activities just described 
provide a very real benefit in the form of 
improved tactical deployment. Commanders 
can call up a map, or a series of maps, to 
isolate those areas that show increased 
criminal activity, or otherwise show a need 
for increased police patrol service. Analysis 
may reveal specific types of suppressible 
crime, as well as pinpointing areas where 
patrol crime can be seen as well as areas 
pinpointed where patrol saturation methods 
would likely be effective. And later, they can 
use the same analysis methods to monitor 
and evaluate their effectiveness in addressing 
area crime problems. 

Graphics and the Geographic Data Base add 
a new dimension to Investigative Support as 
well. For instance, area detectives and in- 
vestigators can become quickly famihar with 
the nature of the area surrounding a crime. 
They can look into the data base for specific 
types of information, and come up with all 
reported activity in the area, in map form as 
well as tabular form. And investigators can 
also confirm the presence of known 
offenders who reside or were contacted in the 
proximity of a crime, to aid in identifying 
suspects. 

Crime analysts Hke Ken Hanfland find that 
their productivity is also on the rise. Since 
the crime analysts have had the power of 
computer graphics at their disposal, the 
clearance rate (cases solved) for robbery. 
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Fig. 1b. Zooming in to took at caiis for service in one city area. 
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Fig. 2. A map sliowing one crime type over a period of time. 
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burglary and rape in area police agencies has 
increased 18 to 30 percent. It's this kind of 
productive activity that CJDS looks for 
when they talk about increased efficiency 
through the use of the computing system; 
increased clearance rates are one of the law 
enforcement community's equivalents to 
added sales or increased profits. 

It's the crime analysts who use the system to 
identify and relate those elements valuable 
for solving a particular criminal problem; 
their analyses are distributed in meaningful 
form to the appropriate commanders. 'The 
neat thing for us/' Sgt. Bob Wilson reports, 
''is that we can tap however many files we 
need, and analyze and break the information 
down more and more until we get what we're 
looking for." It's that ability to interact with 
the system and go through several iterations 
quickly that has made the present system so 
useful. Previous systems sometimes took 
days for one graphic interation; several 
iterations took several times as long. 

More Uses, More Benefits 

The graphic computing power of the system 
makes resource allocation a tangible, 
dynamic function. And it's a function that 
provides real benefits in the form of ad- 
ditional increases in efficiency. A series of 
graphic "snapshots" of the CJDS maps 
shows the locations and types of poHce calls 
for service over some set time periods; 
commanders use these maps to assist them in 
allocating resources and providing "directed 
patrols." This may well save a significant 
portion of a recent budget cutback, in the 
form of gasoUne saved through more ef- 
ficient, directed use of resources. 

The abihty to interact easily and quickly with 
the 4052 and 4054 Graphic Computing 
Systems lets the commanders look at the 
locations of calls for service based on any 
number of parameters. Among these 
parameters are time of day, day of week, type 
of call, how swiftly a response was made, 
which calls required additional backup, and 
which units responded in areas outside their 
district. In addition, they Hke to use the Data 
Graphing and Presentation Aids software to 
prepare bar charts, pie charts, and graphs. 
Ken Hanfland notes that Patrol Com- 
manders now request specific graphs and 
management information, to be included as 
a part of their regular reports. 

The output of the Graphic Computing 
System proved a benefit in the citizen 
awareness and involvement program in- 
stituted not long ago. Maps and charts 
showing specific crime problems in 
neighborhoods helped increase citizen un- 
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Fig. 3. Zooming in on one cluster of criminal activity. Tlie numbers are codes for the type of call: burglary 
or theft 
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Fig. 4. The same map shown in Figure 3, with land parcels and streets shown also. 



derstanding of community problems, and 
helped them help prevent crime through 
involvement actions such as neighborhood 
watch, or improving their home security 
devices. 

Output from the same 4050 Series Graphic 
Computing Systems helps law enforcement 
officials communicate with elected officials, 
executive officers, and the media as well. A 
recent study of jail "crowding" helped to 
quckly resolve a dispute, through the clear 
communication with graphics, as "it's hard 
to argue with graphics." Line graphs showing 
arrest rate trends, and bar charts comparing 
crime types with clearances, have become a 
regular part of management reporting in 
Lane County law enforcement agencies. All 
are prepared on the 4050 Series Graphic 
Computing Systems in the CJDS offices. 



Projected Uses 

Fueled by the success of graphic applications 
thus far, the CJDS personnel are looking at 
more ways to put graphic computing power 
to work for them. Byron Vanderpool, a 
programmer with the department, has a 
potential use that h^ hopes may soon be 
refined into regular use. Figuring that "the 
more you understand what you have, the 
more you want to do with it," he began 
looking at a way to combine the analysis 
power of the Graphic Computing System 
with another police graphic tool, the com- 
posite drawing. 

The composite drawing is prepared by a 
police speciahst from "standard" facial 
features, with the aid of a victim or an 
eyewitness. Although there are always 



variations in such drawings, it was deter- 
mined that witnesses are usually consistent 
about some details, such as eye position, the 
shape and position of the mouth, and the 
spatial relationship between them. 

So a program is under development to use 
those consistencies to the advantage of the 
Lane County law enforcement officers. Four 
points on composite drawings, and 
photographs of known offenders, are digitiz- 
ed and entered into the data base: the pupils 
of both eyes, and both corners of the mouth, 
as shown in Figure 5. The system then 
performs calculations of several angles 
between these points and stores the informa- 
tion in the system data base. When a crime 
occurs, and a new composite sketch is made, 
the sketch can be digitized and compared 
against those in the data base. The file 
numbers of those that match, within a 
specified margin for error (3-5% typically 
seems to work well) are listed on the display, 
so that their ''mug shots'' and files can be 
pulled. 

And the Future 

Real improvements are occuring in the 
activities of Lane County Law Enforcement 



personnel, as a result of the interactive 
graphics of the ICAP system. These are 
improvements that make the involved 
organizations operate in a more efficient, 
streamUned manner, and that can be 
measured in units from clearance rates 
(productivity) to fuel savings (efficiency). 
The system's usefulness as a tactical and 
strategic tool, as well as an informational 



tool, is undisputed. The effectiveness of 
programs can be evaluated with the same 
tools that implement them; those that work 
well can be expanded, and tools that are not 
productive can be abondoned. This system, 
using both the 4052 and 4054 Graphic 
Computing Systems, brings the future into 
the present for Lane County law enforce- 
ment personnel. 




GIVE ME THE FOLLOWING POINTS; 

1 RIGHT EYE (PUPIL) 

2 LEFT EYE (PUPIL) 

3 RIGHT CORNER OF nOUTH 

4 LEFT CORNER OF nOUTH 



Fig. 5, Digitized eye and moutii positions from composite drawings can be compared against a data bani< 
of tlie same digitized points from pliotos of i<nown offenders. 
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You Describe the Task; It Handles 

The Details 
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by Patricia Kelley 
TEKniques Staff 

with Howard Mozeico 

Tektronix, Inc. 
Wilsonville, OR 

The PLOT 50 Easy Graphing Vol. 1 software 
package was introduced in the March 15, 
1980, issue of TEKniques. That article took 
an in-depth look at its five unique resource 
modules: EASY GRAPH, TUTORIAL, 
HELP, UDK Syntax, LIST. 

We talked briefly about Easy Graphing's 
command processor and touched on the 
Easy Graphing command language. Now 
let's take a closer look at the command 
language and see why it's so versatile. 

When you load Easy Graphing into your 
4050 System, you have 41 commands with 
which to prepare and display graphs. These 
commands allow you to enter your graph 
parameters for almost unlimited graph 
design. And the commands and parameters 
are entered directly from the keyboard — no 
waiting for questions, menus, or other 
prompts. 

First, let's review a list of the 41 commands. 
Notice, these are special purpose Easy 
Graphing commands, not BASIC language 
commands. (BASIC language commands 
are disabled while Easy Graphing is in your 
system.) 

Easy Graphing Commands 

Data entry and manipulation 

ATTACH 

CHANGE 

DEFINE 

DELETE 

ENTER 
Output device specification 

PERIPHERAL 

PLOTTER 

HCOPY (hardcopy) 
Graphing 

ADD 

GRAPH 

LIST (summarizes current graph) 

PIE 



Graph formatting 

BAR 

EXPLODE 

LINE 

PVALUE 

SYMBOL 

XGRID 

XLABEL 

XLOG 

XRANGE 

XTICS 

YGRID 

YLABEL 

YLOG 

YRANGE 

YTICS 
Titling 

DATE 

LEGEND 

TITLE 

XTITLE 

YTITLE 
Command files 

BELL 

CONTINUE 

KEYBOARD 

PAUSE 

PRINT 

RUN 

SAVE 
Exit 

BYE 

RESTART 

Choosing Printer, Plotter or Screen 

Easy Graphing directs all output to the 4050 
Screen unless told otherwise. But it can 
direct certain output to a plotter or printer. 

When the command PLOTTER ON is given, 
all graphic output will be sent to the plotter 
until the command PLOTTER OFF is given. 
This command may be extended to prompt 
for pen changes between curve plots; or, if 
your plotter has multiple pen holders, you 
can specify a curve's color by pen number. 

PLOTTER ON PEN 1 2 

Here output is directed to the plotter; pen 
holder number 1 will draw curve 1 and pen 
number 2 will draw curve 2. (Pen 1 will 
always do the labeHng, axes, etc.) 



By preceding certain commands with the 
hard copy device command, alphanumeric 
output can be directed to a printer or plotter. 
For example, 

HCO printer;list 

directs the output generated by the LIST 
command to the printer, rather than the 
screen. (The Easy Graphing LIST command 
was covered in TEKniques Vol. 4 No. 2.) 

Designing a Graph 

By using Easy Graphing's pre-set (default) 
graph parameters, you need only know two 
commands to produce a graph: ENTER and 
GRAPH. Each ENTER command requires 
a variable name followed by the numeric 
data. 



ENTER MAIN 2419,4245,6930,7183 
ENTER NEBR 2909,3657,5882,6720 
ENTER IDHO 1812,3243,5179,5980 
ENTER YEAR 1969,1979,1975,1977 



The first parameter of the GRAPH com- 
mand must be the X-axis variable name, 
followed by the names of the variables you 
want to graph. 

GRAPH YEAR MAIN NEBR IDHO 

The graph will be sparse but informative; a 
quick way to preview your data. 




Fig. 1. A graph created using oniy two Easy 
Grapiiing commands: ENTER and GRAPi-i. Defauit 
parameters set tiie X and Y ranges, tic intervais and 
iabeiing, and line types. 

Tailoring a Graph 

After you preview your data you can tailor 
your graph by overriding the default 



parameters with your parameters. For exam- 
ple, you can change both axes' ranges and the 
X-axis tic spacing on the above graph by 
entering: 

YRANGE 1590,7500 

XRANGE 1955 1980? XTIC 1955 5 

GRAPH 

The RANGE command changes lower and 
upper values for the respective axis. TIC 
commands re-position the tics; the 
parameters specify the location of the first tic 
and the increment for succeeding tics, both in 
axis units. (Note, two commands may be on 
the same Hne by using a semicolon as a 
dehmiter.) 




Fig. 2. Notice tlie entire Y-axis data are now 
displayed because of tlie YRANGE ctiange. Tlie 
default RANGES (Fig. 1) are the ranges of tlie first 
Y-axis curve nanned in the GRAPH command (MAIN 
in the first graph). 

Axis units are the default labels, but alter- 
nate X and Y tic labels can be set through the 
XLABEL and YLABEL commands. You 
may assign the number of tic marks and 
specify a label for each, convert integer- 
labeled tics to their equivalent three-lettered 
month abbreviations, or impose your own 
periodic labeling. 

Six hne types, bar shadings and symbols 
provide a wide choice for customizing your 
graph: 
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Fig. 3. You have a choice of line types, bar 
shadings and symbols in Easy Graphing. 

Choosing from the styles in Figure 3, a few 
commands reformat the curves in the 
previous graph. By default the first curve is 
graphed as a soHd line, so we'll just add a 
symbol to it. The hne for the second variable 
will be changed from dashed to sohd, and 



symbol type 5 added. The third curve will be 
graphed in bar form with shading pattern 3. 
Notice the parameters for LINE, SYMBOL 
and BAR commands are: the number of the 
curve you wish changed, followed by your 
choice of pattern. The default bar width can 
also be changed. BAR WIDTH is specified 
in X-axis units. 



SYMBOL 1 4JLINE 2 1 1 SYMBOL 2 5 
BAR 3 3JBAR WIDTH 1 



Several commands can be used to annotate 
the graph. LEGEND parameters are the 
curve number f ohowed by the legend title (in 
quotes). And, by specifying screen coor- 
dinates, you can relocate the legends. 



LEGEND 1 "MaiTie" 5 LEGEND 2 "Nebraska" 
LEGEND 3 "Idaho" 
LEGEND 25,90 



A main title (heading), subtitle, X-axis title 
and Y-axis title may also be specified. 



TITLE "PERSONAL INCOME PER CAPITA" 

DATE "Data for Years 1960, 1979, 1975, 1977" 

XTITLE "Fron STATISTICAL ABSTRACTOR THE UNITED STATES" 

YTITLE "Dollars" 



Thus, a few simple commands incorporate 
your graph parameters to produce a custom- 
designed graph. 
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1955 1960 19S5 1970 1975 19i 
FroM STftTISTICAL ABSTRACT OF THE UNITED STATES 

Fig. 4. Compare this graph to the one in Figure 1. 
They both contain the same data. 



You'll note other commands under Graph 
formatting in the list of Easy Graphic com- 
mands. EXPLODE and PVALUE were 
illustrated in the last article in TEKniques; 
both format the pie chart style graph. YLOG 
or XLOG assigns a logarithm scale along the 
respective axis; XGRID and YGRID create 
grids extending from the respective axis. 

In this article you have become acquainted 
with one of the Graphing function com- 
mands: GRAPH. Two others, LIST and 
PIE, were covered in the last issue of 
TEKniques. Another command in this 
category is ADD. ADD allows you to graph 
additional variables without re-defining 
your initial graph. 



Data for the curve(s) to be ADDed can be 
ENTERed any time. For example, they 
could have been entered when data for the 
variables MAIN NEBR IDHO and YEAR 
were entered above. Remember that the first 
time you issue a GRAPH command, you 
designate which variables you want to graph; 
therefore, all variables residing in memory 
need not be displayed. However, you can 
also ENTER additional curve data after 
defining your initial graph. That's what we'll 
do here. 



ENTER YR2 I960 1970 1975 1976 1977 
ENTER WASH 2608 4317 6518 6772 7820 



An additional data point on the X-axis was 
desired for this curve so a second X-axis was 
entered (YR2), along with the variable and 
its data. 

The ADDed curve is immediately drawn, so 
the ADD command must always be preced- 
ed by a GRAPH command. (The semicolon 
allows another command(s) to be issued 
before execution; the ampersand allows the 
command(s) to be entered on the next line.) 



GRAPH? & 

ADD YR2 WASHILINE 4 1 J SYMBOL 4 3| LEGEND 



Compare the resulting graph with that in 
Figure 4. Different data is compared within 
the same graph parameters. 




1955 1960 1965 1978 1975 

FroM STATISTICAL ABSTRACT OF THE UNITED STATES 

Fig. 5. The ADDed curve is graphed against a 
different X-axis: notice the extra data point for 
1976. 



Once you are satisfied with your graph, give 
it a filename (up to 10 characters) and store 
it. (If another file exists by the same name, it 
will be overwritten.) 

SAME PERSINCOME 

To retrieve a graph just key in the command 
RUN followed by the filename. Easy 
Graphing will bring all your data and 
parameters for that graph back into 4050 
memory and display the graph. 
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Editing a Graph 

To change, add or delete data, first use the 
LIST resource to examine your variables 
and their elements. 



NAME TYPE 


MIN 


MAX 


COUNT 


MAIN Long 
NEBR Long 
IDHO Long 
YEAR Long 


2419 
2009 
1812 
I960 


7183 
6720 
5980 
1977 


4 
4 
4 

4 


LEGEND 25,90 
XRANGE 1955, 1988 
YRANGE 1590,7500 
BAR HIDTH 1 








CURVE XUAR YUAR 


SYMBOL BAR 


LINE 


1 YEAR MAIN 

2 YEAR NEBR 

3 YEAR IDHO 


4 
5 


3 


1 
1 
3 



Fig. 6. Typing LiST produces a iisting of variabies, 
aiong witii a summary of data and grapli parame- 
ters residing in Easy Grapiiing's memory. 





MAIN 


NEBR 


IDHO 


1 

2 
3 
4 


2419 
4245 
6030 
7183 


2009 
3657 
5882 
6720 


1812 
3243 
5179 
5980 


TOTAL 


19877 


18268 


16214 



Fig. 7. Typing LiST foiiowed by tine name of tiie 
variabie(s) produces a iisting of aii eiements in tliat 
variabie. Tine command whicii produced ttie above 
dispiay was: LiST MAiN, NEBR, iDHO. 

The CHANGE command changes, inserts, 
or deletes an element within the named 
variable. Below, the first command would 
change element 3 of the variable named 
NEBR to 5884. The second command would 
delete the same element entirely. By specify- 
ing a value between the third and fourth 
element in the variable IDHO, the third 
command would insert the value 5800 after 
the 3rd element and move current element 4 
to position 5. 

CHANGE NEBR 3 5884 
CHANGE NEBR 3 
CHANGE IDHO 3.4 5888 



DELETE deletes a specified variable from 
memory. All data and graph parameters 
pertaining to that variable are removed. The 
following command would delete the 
variable NEBR and all data and graph 
formatting associated with it from future 
graphs. 

DELETE NEBR 

With these commands at your disposal, it's 
easy to design and SAVE your graph, 
retrieve it, update it, and SAVE it again. But 
other commands increase versatility and 
flexibility. 



Data Manipulation 

Entering data from the keyboard may not be 



enough to suit all your needs. Therefore, 
Easy Graphing allows you to manipulate 
your data, and to bring in data from PLOT 
50 Standard Files. 



DEFINE 

As an alternative to ENTERing data from 
the keyboard, you may use the DEFINE 
command. DEFINE lets you create data 
points from other variables or functions. 

For example, you have two variables — 
TERl and TER2 — consisting of 12 months 
of sales data for two territories. You may 
DEFINE another variable depicting average 
sales. Easy Graphing automatically per- 
forms the calculation for each data point and 
graphs the third curve. 

DEFINE AURG « <TER1 + TER2)/2 

Or, you could use DEFINE to compare 
experimental results with some theoretical 
values. For example, say you ENTERed 
data that had been observed experimentally. 
Theoretical values may be known only by 
some equation, e.g., hyperbolic cosine, or the 
normal probability function. You can use 
DEFINE to create the data values for this 
theoretical data: 

DEFINE COSH « CEXP<X) + EXP<-X))/2 

DEFINE NORM « EXP<-<Xt2>/2)/6.28 

In each case you would have to ENTER data 
for the independent variable X. This could 
simply be done by: 

ENTER X SHORT 26 -3 .25 

where 26 values are to be created for X, 
starting at -3, with an increment of .25 
between successive elements. 

DEFINE will accept arithmetic or algebraic 
operations. Eight functions may also be 
used: 



ABS 


Absolute Value 


EXP 


Raises e to a power 


MOD 


Modulo arithmetic 


SUM 


Sums specified variable 


COS 


Cosine 


SIN 


Sine 


LOGN 


Natural Logarithm 


LOGIO 


Base 10 Logarithm 


ATTACH 



Easy Graphing to read and graph data from 
a variable within a PLOT 50 Standard File. 
Since the number of observations (data 
points) per variable in a PLOT 50 Standard 
file are limited only by the amount of disc /^ 
space available, the ATTACH command 
allows you to graph large amounts of data 
that would otherwise surpass Easy 
Graphing's memory. 

To use ATTACH, assign a variable name 
(just as you do in the ENTER command), 
specify the name of the PLOT 50 Standard 
File to be accessed (i.e., the username 
associated with your PLOT 50 
HEADER/ DATA file), and the number of 
the variable within the Standard File. The 
following example would ATTACH the 
third variable in the PLOT 50 Standard File 
named BPA2 to the Easy Graphing variable 
called CRVl. 

ATTACH CRUl BPA2 3 

When Easy Graphing ATTACHes data from 
a PLOT 50 Standard File, it doesn't retain 
the data points in its memory but brings 
them in at graph time. Therefore, any PLOT 
50 Standard File in which a variable is being 
ATTACHed must reside on the Easy 
Graphing system disc when you run the 
graph. 

This has been an overview of commands 
which create and change graph 
characteristics. As you use the package, 
you'll begin to reahze how you can 
manipulate commands and parameters to 
produce an infinite variety of graphs tailored 
to your specific needs. In the next issue of 
TEKniques we'll look at a powerful capabil- 
ity of Easy Graphing, the ability to create 
Command Files. We'll also take a look at the 
UTILITIES routines which create and 
retrieve PLOT 50 Standard Files and 
manipulate Easy Graphing files. , 



*PLOT 50 Standard Files were discussed in 
TEKniques, Vol. 4, No. 1. 



PLOT 50 Standard Files* communicate data 
quickly and easily between appUcations; the 
Easy Graphing ATTACH command im- 
plements this philosophy. ATTACH allows 



Educators Update CAD Knowledge 



by Tom Sutherlin 
Cameron University 
Lawton, OK 

During their recent break between semesters, 
some Oklahoma educators got together to 
learn more about Computer Aided Drafting 
(CAD). Digitizing techniques taught at a 
two-day seminar were derived from 
programs developed and taught at Cameron 
University at Lawton, Okla. 



Cameron CAD History 

Cameron University has been producing 
graduates with expertise in Computer Aided 
Drafting since 1976. The first digitizing 
system was developed and taught using a 
4662 Interactive Digital Plotter and a 4051 
Desktop Computer. Cameron's system now 
includes a 4956 Graphic Tablet also. 

Many graduates of Cameron's Design Draf- 
ting Technology program have gone to work 
programming and operating CAD systems. 
These technicians have been able to make a 
fast transition to other systems because of 
their training in the digitizing system. One 
graduate, Andy Van Hoy, is developing 
specialized digitizing programs for small 
companies. A number of the students have 
taken special project courses at Cameron 
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after their training in computer graphics, and 
have aided in the growth of the Cameron 
system. 



Tlie Seminar Instruction 

The seminar, hosted by Mike Wilkins, 
Tektronix Sales Engineer, provided 4051 
systems, 4662 Plotters and 4956 Tablets for 
the participants. Programming techniques 
for digitizing a menu to achieve a finished 
drawing were extensively explored. These 
techniques were derived from the Cameron 
System which allows the user to select 
graphic symbols from a menu (see the 
Composite Menu in Figure 1) and complete 
a finished drawing on the 4051 screen or on 
the 4662 Plotter. The method greatly reduces 
drafting time by using a rough sketch on grid 



paper, with a menu, for the actual input 
document. The educators also learned 
programming techniques to accommodate 
either the 4662 or the 4956 as input mediums, 
and to store data to tape. 



The Future 

Seminar participants expressed the hope of 
forming an industry/ education standards 
group, which could take on national scope. 
This would allow educators to teach 
accepted industry standards, with great 
potential benefits for both areas. Meanwhile, 
seminars Hke these allow a common meeting 
ground for users interested in computer 
aided design, where information can be 
shared so that all can get the most out of their 
system. ^) 




Photo 1: Tom Sutherlin, Cameron University, explains the digitizing program. (Courtesy of Cameron University, 
Lawton, OK) 




Fig. 1. Andy Van Hoy's composite menu for the 4662 
or 4956. (Courtesy of Cameron University, Lawton, 
OK) 



Photo 2: CAD seminar participants, left to right; David Kersey, Northern Oklahoma State College, Tonkawa, 
OK; Gerald Anderson, Connors State College, Werner, OK; Leonard Bachman, Northeastern Oklahoma A&M 
College, Miami, OK; Gerald McClain, Oklahoma State University, Stillwater, OK; Jim Hysaw, Seminole Junior 
College, Seminole, OK; Mike Wilkins, Tektronix, Inc., Oklahoma City. (Courtesy of Cameron University, Lawton, 
OK) 



Ed Mallett, AD/ACC, Eglin Air Force 
Base, Fla, sent in- the following 
questions. Howard Sanders, Technical 
Support Specialist at Tektronix, 
Wilsonville, responds. 

Here is my first problem: I have a BASIC 
program in my 4050 Series System. I am in 
Terminal Mode using the Data Com- 
munications Interface. What commands 
may the host computer send so the 4050 
System will go back to BASIC and continue 
the program? 

ESC ESC will return the 4050 System to the 
mode it was in before CALL "TERMIN" was 
executed. If it was under program control, 
i.e., running a program, and one of the 
statements was call "TERMIN", when this is 
executed it enters terminal mode. When it 
receives the ESC ESC from the host, it will 
return to program control and continue 
executing the program at the statement 
following the CALL 'TERMIN" statement. 

If it was in idle mode and CALL "TERMIN" 
entered from the keyboard, when it receives 
ESC ESC, it will return to idle mode, even 
though a program may be resident in 
memory. 



Here is the second: In the following code, 
where is the command RUN stored during 
the OLD operation? If it isn't stored, why 
does the program then RUN? 



lee 


IHIT 


118 


FIND 1 


120 


OLD 


130 


RUN 



The RUN statement in the above code is 
unnecessary. In fact the 4050 System 
automatically does a DELETE ALL before 
it OLDS in a program. However, there are 
two ways to OLD in a program: under 
program control and from the keyboard. 
When the 4050 System is directed from the 
keyboard to OLD in a program it is in idle 
mode. It therefore executes the keyboard 
command (OLD in this case) and returns to 
idle mode. 

But, when it OLDS in a program in program 
control mode, it automatically begins ex- 
ecuting that program at the lowest statement 
number in the new program. ^) 
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Editor's 
Note 




Contest Winners to be 
Announced 

As this issue of TEKniques went to press, our 
judges were reviewing the entries in the 
Interfacing Contest. We received several 
entries in each category, and want to thank 
all who participated in the contest for 
submitting their fine appUcations. The 
winners of the contest will be announced in 
the next issue of TEKniques (Vol. 4 No. 4). 

A New Applications 
Library Catalog Coming 

Along with the next issue of TEKniques, 
June will also bring the next AppUcations 
Library Catalog. This catalog will contain 
lots of new programs: the abstracts from the 
last year's TEKniques, as well as the 
programs entered in the recent contest. 
Watch for it! 

(Remember, programs added to the Ubrary 
since the 1979 catalog have been documented 
in your most recent issues of TEKniques.) 



Wanted: Your Programs 

We're always looking for more programs to 
add to the 4050 Series Applications Library. 
This helps us keep the Hbrary growing to 
better serve more of you, and provides a 
medium for you to share your programs with 
others who may be able to use them too. And 
you get three free programs for each 
program you send in to the hbrary, so 
everybody wins. 

Programming Tips Too 

The applications library staff would also Hke 
to remind you that we're looking for those 
valuable Programming Tips and BASIC 
Bits. You'h receive any one of 12 programs 
from the Hbrary in exchange for your tip. 
Details are Hsted at the end of the BASIC 
Bits column in each issue. . 
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Computed GO SUB and GO TO Statements 



by Dan Taylor 
Tektronix, Inc. 
Wilsonville, OR 

The computed GOTO and GOSUB 
statements are used when program control 
must be passed to different routines, depen- 
ding on the circumstances. 

1003 GO TO J OF 2009y 3900, 4000 
1000 GOSUB J OF 2000,3000,4000 

(J contains the numeric value reflecting the 
circumstance.) 

J is rounded to an integer. If that integer is 
less than one or greater than the number of 
statements listed following OF (i.e., if J were 
4 or greater in the above case), the branch 
wouldn't occur and execution would con- 
tinue with the next statement. This next 



statement would, therefore, contain some 
default action (or error message). This is fine 
for the GOTO... OF... command. However, 
when the GOSUB... OF... command ex- 
ecutes (i.e., J is within the proper range), 
command is transferred to the routine; and 
at the end of the routine a RETURN 
statement would transfer control back to the 
statement following the computed GOSUB 
statement. In this case the default or error 
action would not be appropriate. 



lesd 


GO TO J OF 2000,3000, 


4000 




1019 


REM 


Default action or error if J is riot in | 


1020 


REM 


proper range 






1060 


GOSUB J OF 2000,3000 


4000 




1010 


RFM 


Can't do defaul t 


here 


because 


1020 


REM 


each GOSUB RETURNS to 


here, too. 



Therefore, when working with computed 
GOSUB statements, use both a GOSUB and 
a GO TO to accomplish your branching task. 



i@@e GOSUB 1028 

1610 GO TO 1100 

1020 GO TO J OF 2000,3000,4000 

1030 REM Default action 

I 

\ 

1100 REM CoT^tinue 

I 

I 



In statement 1000 an unconditional branch is 
made to line 1020. There the computed 
'branch (if made) is done through a GO TO 
command. If it branches, the RETURN 
statement sends control back to the state- 
ment following the GOSUB, statement 1010 
above. If J is out of range, the program 
continues at statement 1030. The conflict is 
resolved. 



Overcoming Mag Tape Read Errors 



by N.J. J. Ogbourne 

Comalco Aluminum (Bell Bay) Limited 
George Town, Tasmania 



The following notes describe an alternative 
to that suggested by Grace and Passeri in the 
September 17th issue of TEKniques. 



We use a Fluke 2240B logger with a 4923 
Option 1 tape drive. We then use the 4051 to 
transfer data from the 4923 tape, through the 
internal tape drive (using the 128 byte no 
header format) to a disc file. 



The alternative code recognizes that the 405 1 
places the tape head immediately following 
the bad read, ready to read the next item. 



Thus, the array F is initiaHzed to some value, 
e.g., 9999.9999(line250)prior to reading each 
scan. The scan is read one item at a time 
(Hues 251 to 253) and when a mag tape read 
error is encountered, UDK 2 is pressed, 
which will read the next item. Items 'missed' 
by the bad read then retain the value 
9999.9999 and can thus be identified. 



A similar procedure is used to recover from a 
header bad read, using UDK 1. The same 
approach can be used reading the data from 
the 4923 to a 4051 internal tape file if you 
don't have a disc unit. 



1 INIT 






2 SET KEY 






3 GO TCI 100 






4 REM MAG TAPE READ ERROR IN 


HEADER 




5 GOSUB 1000 






6 GO TO 210 






S REM MAG TAPE READ ERROR IN 


DATA 




9 REM SCAN NUMBER IS I-l 






10 PRINT "BAD READ ITEM F("! 


.15 "), SCAN "; I-l 1 


U GO TO 253 






■?S REM FILE "RE 


■::OVER" 


2) 28/12/79 


99 REM *«■*##*#**##* READ IN 


INITIAL 


DATA ****** 


100 PRINT "IF MAG TAPE ERROR 


OCCURS 


IN LINE 200, PRESS UDK ttl" 


no PRINT "IF MAG TAPE ERROR 


OCCURS 


IN LINE 252, PRESS UDK #2" 


120 ON EOF (0) THEN 290 






130 DIM F(/::.2) 






140 PRINT @32,26:2 






150 KILL "DATA" 






1 60 CREATE " DATA " , " U " i 500 , 56 


1 




170 OPEN "DATA"; 1, "F",A$ 






ISO FIND 1 






190 REM ***** READ AND WRITE 


HEADER 




200 READ e33:A*,Hl$,C,D 






210 PRINT A*,B$,C,D 






220 WR I TE # 1 ■, 1 : A* > B$ , C , D 






230 REM ***** READ AND WRITE 


DATA *■( 




240 FOR 1=2 TO 500 






250 F^9999.9999 






251 FOR J=l TO 62 






252 READ (533: F( J) 






253 nf;xt J 






260 PRINT I,F(1) 






270 WRITE #1, I:F 






280 NEXT I 






290 PRINT "NO ERRORS FOUND." 






300 END 






1000 REM MAG TAPE READ ERROR 


IN HEADER | 


1010 A*="BAD READ" 






1020 B$=A* 






1030 C-9999.9999 






1040 D=C 






1050 RETURN 
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Compress Memory Before Appending 



by Brian K. Kleber 

Department of the Army 
St. Louis, MO 

A program was too big to run without 
exceeding memory; therefore, it was broken 
into two subprograms. The first subprogram 
was executed, then most of it deleted; then 
the second subprogram was appended to the 
end of the first and processing was com- 
pleted. 



Initially, when we attempted to APPEND 
the second subprogram from the 4907, the 
attempt failed under program control, but 
could be accompUshed manually. The failure 
symptoms were similar to those when the 
buffer is overflowed on the data com- 
munications interface; the system also lock- 
ed up under BUSY. 



To solve this, we did a memory compress 
before executing the APPEND: 



15901 



1690 X=riEMORY 

1610 APPEND "eSYSLIB/GEO. BIG"} 1620 

1620 REM 



PRINTing Arrays to Tape or Disc 



by Howard Sanders 
Tektronix, Inc. 
Wilsonville, OR 

When a PRINT statement is used to output 
data, the 4050 System first converts the data 
into an ASCII character string, then sends 
that string to the specified device. If the 
format of the data string is not specified, 
default formatting applies. The default for- 
matting can make quite a difference in 
storage space taken up when you PRINT 
arrays to tape or disc. And when arrays and 
strings are PRINTed to the same file, their 
storage and retrieval methods must be con- 
sidered. 

When an array is output using a PRINT 
statement, the 4050 System formats it the 
same, regardless of where the characters are 
being sent (e.g., 4050 screqn, tape, printer, 
etc.). It places two carriage returns before the 
array, adds spaces so every four elements of 
the array are aligned, and adds two carriage 
returns to the end of the array. If the array is 
two dimensional, the data is formatted in 
row major order with two carriage returns 
separating the rows. As you will see, the 
extra spaces mean that far more tape or disc 
space is used than that required just for the 
data. And, the extra carriage returns must be 
considered when inputting a string preceded 
by an array. 

The following routine generated two arrays, 
one Unear and one two-dimensional, and a 
character string. The arrays and string were 
then stored in various files. We'll look at the 
methods of storing and what they ac- 
complished: 



109 INIT 

lie DIM AC2e>iB<2>ie> 

120 FOR 1=1 TO 20 

130 A<I)=I 

140 NEXT I 

150 FOR 1=1 TO 2 

160 FOR J=l TO 10 

170 B<I,J)=<I-1)*10+J 

180 NEXT J 

190 NEXT I 

200 A$="»****«****" 

210 FIND 1 

220 PRINT (?33:A 



230 PRINT (?33:A$ 

240 CLOSE 

250 FIND 2 

260 PRINT e33:B 

270 PRINT e33:A* 

280 CLOSE 

290 FIND 3 

300 PRINT e33:Aj 

310 PRINT e33:A* 

320 CLOSE 

330 FIND 4 

348 PRINT e33:Bj 

350 PRINT @33:A* 

360 CLOSE 

370 FIND 5 

380 FOR I«l TO 20 

390 PRINT e33:A(I>) 

400 NEXT I 

410 PRINT 933! 

420 PRINT 933: A$ 

430 CLOSE 

440 FIND 6 

450 FOR 1=1 TO 2 

460 FOR J«l TO 10 

470 PRINT (?33:B<I,J)> 

480 NEXT J 

490 PRINT 633! 

500 NEXT I 

510 CLOSE 

520 FIND 7 

530 PRINT 633: 

540 PRINT ©33: 

550 CLOSE 

560 FIND 8 

570 PRINT 633: USING 620: B 

580 PRINT 833: USING 610:A* 

590 CLOSE 

600 IMAGE 20<XFD) 

610 IMAGE FA 

620 IMAGE 2</10<XFD)> 

630 IMAGE FA 

640 END 



Using the EDITOR ROM to input the data 
on the files and then the Search command, 
all occurrences of carriage returns were 
replaced with"(cr)". The following illustrates 
how the array and character string were 
stored when statements 210 through 280 
were executed. 



USING 600:A 
USING 610:A« 



Hst 


:Ccr> 










: 1 


2 


3 


4<cr) 




: 5 


6 


7 


8<cr) 




: 9 


10 


11 


12<cr) 




: 13 


14 


15 


16<cr) 




: 1? 


18 


19 


20<cr> 




U.cry 










:<.cr:> 










:*****.t**l!*<cr> 








Ust 


:<cr) 
:<cr> 










: 1 


2 


3 


4<cr> 




: 5 


6 


7 


8<cr> 




: 9 


lQ(.cr:> 








:(cr) 










: 11 


12 


13 


14<cr) 




: 15 


16 


17 


18<cr> 




: 19 


20<cr> 








:<icr> 










:<cr> 










:UtUUU*(.cr> 









A semicolon after the array variable will 
compact the array, separating the elements 
by one space only (statements 290 through 
360). 



list 


:<cr> 

: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 

:<cr) 


15 16 17 


18 19 2e<cr) 


list 


•^^2 3 4 5 6 7 8 9 10<cr> 

:^ll^2 13 14 15 16 17 18 19 20<cr) 

:<cr) 

:»*.»t**«*»*<cr) 







However, the two carriage returns will still 
be added to the beginning and end of the 
array. There is no problem unless the array 
precedes string data. When this happens, the 
string input handles the extra carriage 
returns as normal dehmiters. Therefore, two 
extra string inputs must be used to get past 
the extra carriage returns. To input the data 
stored in File 1 or File 2, the following code 
would be necessary: 



180 


INIT 










lie 


FIND 1 










129 


DIM A<20> 










130 


INPUT 633: 


A 


A$ 


A$ 


A$ 


140 


END 











An alternative is to print the array, a variable 
at a time suppressing all but the final carriage 
return with a semicolon (statements 370 
through 510). Strings following these arrays 
would then be accessible in the normal 



12 13 14 15 16 17 16 19 2e<:cr> 



: 123456789 10<cr> 

: 11 12 13 14 15 16 17 18 19 20<cr) 



And, of course, you may always use the 
PRINT USING statement to specify the 
exact format. The following examples il- 
lustrate some possible formats contained in 
statements 520 through 630. 



: 13 14 15 16 17 18 19 20<cr> 



: 123456789 IBCci 
: 11 12 13 14 15 16 17 II 
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Group OPEN on the 4907 



by John Carter 
Tektronix, Inc. 
Santa Clara, CA 

The group OPEN command for the 4907 File 
Manager paves the way for files in a selected 
group to be accessed consecutively, without 
having to issue CLOSE and OPEN com- 
mands as each is accessed. There is no limit 
(other than disc space) to the number of files 
in the group. 

To implement a group OPEN, you need 
special characters within the file identifier. 
These special characters specify the extent of 
Ubrary and file ^ access you want. Although 
we will use only one of these special 
characters in the following routine (the #), 
you can check out the others by referring to 
the 4907 File Manager manual section: 
HOW TO WRITE A COMMAND: 
SPECIAL CHARACTERS IN FILE 
IDENTIFIERS. 

The files to be accessed in this routine 
are grouped under the first level Ubrary 
DBMPROG in a user library.2 



DIRQ,"eDBMPROGM" 

DBMPROG/ IH IT 

DBMPROG/FILEIHIT 

DBMPROG'-RECORDKEEP/OU 1 

DBMPR0G/REC0RDKEEP/0U4 

DBMPROG/RECORDKEEP/OU? 

DBMPR0G/REC0RDKEEP.''0U3rt 

DBriPROG/RECORDKEEP/MAIN 

DBMPROG/RECORDKEEP.-'TAPETOD I SC 

DBMPR0G/REC0RDKEEP/0U3 

DBMPR0G/REC0RDKEEP/0M6 

DBMPROG.'-REC0RDKEEP.''0U7A 

DBMPROG/RECORDKEEP/OM0 

DBriPR0G/REC0RDKEEP/0U2 

DBMPR0G/REC0RDKEEP/0U5 



Now let's take a look at the routine. 



100 INIT 

110 REM * ASSUMES DRIUE * 

120 DIM S*<300) 

130 PRINT "ENTER THE LIBRARY TO OPEN: "J 

140 INPUT A* 

150 REM * BUILD A* WITH PROPER SYMBOLS * 

160 REM * A*»"eNAME#" * 

170 A*="e"&A* 

180 A*=A*8."»" 

190 OPEN A$,"G"5l("R".S$ 

200 OH EOF CD THEN 410 

210 REM * RESET EOF FLAG « 

220 E=0 

230 REM * GET THE FILENAME OPENED FROM STATUS * 

249 A*=SEG<:S$,189,LEN<S*)-189) 

250 PRINT A* 

260 REM * GET DATA FROM FILE * 

270 INPUT »1:A$ 

288 REM * PRINT JUST A PORTION OF IT * 

290 A*=SEG<A*,1,6) 

300 REM * PLACE CURSOR BACK ON SAME LINE 

310 REM FOR OUERWRITE TO SAUE SPACE * 

320 PRINT ({*;'^" 

330 REM * IF EOF FLAG NOT SET THEN GET NEXT RECORD * 

340 IF NOT<E) THEN 279 

350 REM * OTHERWISE GET NEXT FILE * 

360 CALL "NEXTM,S$ 

370 REM * IF STATUS IS NULL THEN QUIT * 

380 IF S*<>"" THEN 220 

390 END 

400 REM * SET EOF FLAG * 

410 E=l 

420 PRINT 

430 RETURN 



iFor a review of library /file storage structure, see 
the 4907 File Manager Manual section: 
STORAGE STRUCTURE. 

^There are three types of first level libraries: the 
SYSTEM library, the SCRATCH library, and 
any number of user libraries. 



InitiaHzing the system sets the disc drive to 
and the default first level Ubrary to 
SCRATCH. Including @ in the file iden- 
tifier^ in statement 170 directs the File 
Manager to the user library specified in A$, 
(statement 140). Since the special character # 
directly follows the user library name (DBM- 
PROG), this instructs the File Manager that 
all files in all levels below this library will 
take part in the group OPEN. 

Statement 190 issues the OPEN command, 
names the file identifier (with special 
character included), specifies G for group 
open, identifies this group as logical file 
number 1, specifies a read only operation for 
the files, and sends the status message of the 
first accessed file to S$. 

The variable which will denote End of File is 
set to in statement 220. 

The processing begins at statement 240 
which takes a look at the filename (the first 
189 characters in the status message are file 
parameters) of the just opened file, and then 
prints the name. 

Statement 270 assumes that the accessed files 
contain ASCH programs or sequential 
ASCn data.4 This simplified processing 
routine inputs an ASCH string, prints part of 
it and gets the next. When the end of file is 
reached, the CALL ''NEXT'' statement in 
360 closes this file and opens the next. The 
parameters of CALL "NEXT" are: logical 
file number for the group and target string 
for the status message. Statement 380 checks 
for a null string which would signal that all 
files within the selected group have been 
processed. 

The following output^ is generated as a result 
of the above routine. 



Hf the @ sign had been omitted the File Manager 
would have looked for DBMPROG under the 
default first level library— SCRATCH in this case. 

'♦Random ASCH files would require a record 
number in the command: INPUT #l,n: A$ where n 
is the record number. Binary files would require a 
READ statement and if random, a record number, 
followed by the variable to match the data in the 
file. 

^Files are opened in the order they are stored on 
the disc. In cases where you have to access files in a 
particular order then the group OPEN probably 
won't suffice, and individual OPENs will be 
necessary. 



RUN 

ENTER THE LIBRARY TO OPEN: DBMPROG 

DBMPROG/ INIT 

lie 11 

DEMPROG-'FILEINIT 

lie Bi 

DBMPROG/RECORDKEEP/OUl 
lie IB 

DBMPR0G/REC0RDKEEP/0U4 
lie BB 

DBMPR0G.''REC0RDKEEP/0U7 
lid IB 

DBMPR0G/REC0RDKEEP/0U3A 
110 IB 
DBMPROG/RECORDKEEP/MAIN 

lie 11 

DBMPROG/RECORDKEEP/TAPETODISC 

118 II 
DBMPR0G.''REC0RDKEEP/0U3 

119 11 

DBMPR0G/REC0RDKEEP/0U6 

lie 11 

DBMPROG/RECORDKEEP/0U7A 

lie 11 

DBMPROG/RECORDKEEP/OUe 

lie 11 

DBMPR0G/REC0RDKEEP/0U2 

lie 11 

DBMPR0G/REC0RDKEEP/0U5 

lie 11 



Regardless of the type of processing you're 
doing, you can see how the group OPEN 
command will save time and memory when 
you're going to be manipulating related files. 
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Quotation Mark Display in PRINT USING Statements 



by Dan Taylor and Patricia Kelley 
Tektronix, Inc. 
Wilsonville, OR 

TEKniques Vol. 4 No. 2 told how to display 
quotation marks with a PRINT statement. 
Now let's look at quotation mark display in 
the PRINT USING form of the PRINT 
statement. 

You use the PRINT USING statement when 
you want to tell the 4050 System exactly how 
you want some data formatted for output 
(either storage or display). This is done 
through a format string which contains 
special characters* to guide the format of 
your data. 

There are three ways to set up this format 
string. And how you specify quotation 
marks to be displayed depends on which 
method you use. 

You can include your format string in the 
PRINT USING statement; you can assign it 
to a string variable and then include the 
string variable in your PRINT USING 
statement; or, you can include the format 
string in an IMAGE statement and refer to 
the Hne number of the IMAGE statement in 
your PRINT USING statement. 

In all of these methods quotation marks are 
used as delimiters: delimiters for the begin- 
ning and end of the format string itself, or 
delimiters for literal strings within the format 
string. So let's take the three format string 
methods and dissect them. 

Format string included in the PRINT 
USING statement 

The format string begins with one quotation 
mark which signals the beginning of the 

*For a complete list of the special characters and 
their modifiers, see the 4050 Series Graphic 
System Reference Manual, INPUT/OUTPUT 
Operations section, "The Image Statement: Field 
Operators and Field Modifiers." 



string. The special characters and their 
modifiers are then inserted; commas can be 
used to separate a field and its modifiers 
from another field and modifiers. The for- 
mat string is deUmited by a quotation mark. 
The colon delimits the command; following 
the colon is the data to be formatted. 



190 INIT 

118 Pi*="ANSWER" 

129 A=5809 

130 PRINT USING 

RUN 
ANSWER 



L,14A,6D,":A»,A 



If you include a Hteral string within the 
format string, it must be deUmited by double 
quotation marks. 



200 PRINT USING 

RUN 

The ansuer is: 



"The answer is: 



If you want to include quotation marks for 
display, you must have four for each one you 
want displayed. Since they are a literal string, 
they must be enclosed within double quota- 
tion marks. And, of course, the format string 
must be delimited. 



format string delimiters 



388 PRINT USING "L,"""" 
RUN 




However, you normally include quotation 
marks with other alphanumeric characters. 
And when building your format string to 
display quotes, be careful in using commas 
for separation of fields. The format strings 
below both contain the same alphanumeric 
characters but comma placement results in 
different literal strings being displayed. 



400 PRINT USING "L," "He said, "The a 




",6D,""""" 


" " " , " : A 


RUN 








He said, "The answer is: 5880" 








versus 








400 PRINTUSING "L,""He saidi" " . " "The 


iTisweris:' 


",6d, , 


,..:A 


RUN 








He said) The answer is: 5800 









But as you can see, including the format 
string with the PRINT USING" statement 
can result in quite a lengthy statement, 
perhaps overruning the 72 characters allow- 
ed. Therefore, a format string is often 
assigned to a string variable. 

Format strings assigned to a variable 

The following examples assign the first four 
format strings above to string variables 
which are used with the PRINT USING 
statement. The dehmiters in the format 
string are the same. This method simply 
removes the format string from the PRINT 
USING statement Hne. 



100 INIT 






110 A$>" ANSUER" 






120 A=5800 






130 F*="L,14A,6D, " 






140 PRINT USING F*:A$,A 






RUN 






ANSWER 5800 






200 F*="L,'"'The answer 


s: "",6D," 




210 PRINT USING F«:A 






RUN 






The answer is: 5800 






300 F»="L, «"»"""" ',' 






310 PRINT USING F*: 






RUN 






400 F$="L,""He said, 


"The answer is: 


"",6D, """"""""," 


410 PRINT USING F$:A 






RUN 






He said, "The answer is: 


5800" 





Format String in the IMAGE statement 

But to assign all format strings to string 
variables could use up a lot of these 
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variables. Therefore, the IMAGE statement 
provides a method of specifying format 
strings. This statement doesn't require that 
the format string be delimited, thus it re- 
quires only one set of quotation marks to 
delimit any literal string, and two quotation 
marks for every one you want to display. The 
examples use the same format specifications 
contained in the string variables above. 



As you can see, if you're going to be printing 
quotation marks, the best method is the 



IMAGE statement. But now you have an 
overview of how to display quotation marks 
in any of the three format specifications. 



168 INIT 

110 A*-"ANSMER" 

128 A»5880 

138 IMAGE L, 14A|6D 

148 PRINT USING 13e:A»,A 




RUN 




ANSMER 5800 




209 IMAGE Li-The ttflsw«r is:%6D 

210 PRINT USING 200: A 




RUN 




The answer is: 5800 




300 IMAGE L, ""«""- 
310 PRINT USING 300: 




RUN 




400 IMAGE L^'Hc saidi ""The answer is: 
418 PRINT USING 400:A 


"jeD,"""" 


RUN 




He saidi "The answer is: 5808" 





Sizing Viewport for 4662 Plotter or 4050 Screen. 

by Martin Guiver 
Tektronix, Inc. 
European Marketing Centre 
Amstelveen, The Netherlands 

Try this for "size:" 

9000 UIEWPORT 0,130420*<D<>32),0,i00 
where D = device # 

The statement replaces the two statements 
described in TEKniques Vol. 3 No. 1, and 
runs faster. J^ 
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4050 Series Applications Library Program Abstracts 



Order 

Documentation and program listings of each program are 
available for a nominal charge. Programs will be put on tape or 
disc for a small recording fee per program plus the charge for the 
tape cartridge or flexible disc. One tape j disc will hold several 
programs. Programs will be recorded on like media only, i.e., 
programs on tape cannot be sent on disc and vice versa unless so 
noted in the abstract. 

(The program material contained herein is supplied without 
warranty or representation of any kind. Tektronix, Inc. assumes 
no responsibility and shall have no liability, consequential or 
otherwise, of any kind arising from the use of this program 
material or any part thereof.) 



Domestic U.S. Prices: 

Documentation and listings 
Recording Fee 
Tape Cartridge 
Flexible Disc 



$20 per program 
5 per program 
30 per tape 
15 per disc 



Contribute 

Contribute one program to the Library and receive three in 
exchange. Send in the membership card from your 4050 Series 
Graphic System Reference Manual to get the details. Or call us 
(503) 682-3411, ext. 3618. 

Forms 

Please use the Applications Library Order Form. Order forms 
are included in the Membership Packet and are available from 
your local Tektronix Sales Engineer. 

Outside U.S. 

Program contributions or orders outside the U.S. must be 
processed through the local Tektronix sales office or sent to one 
of the Libraries serving your area. See Library Addresses section. 



ABSTRACT # 51/07-0102/0 

Title: Gantt Chart 
Author: Connie Breithaupt 
Tektronix, Inc. 
Rockville, MD 
Memory Requirement: 32K 
Peripherals: 4907 File Manager 

(For Disk Version Only) 
Optional — 

4631 Hard Copy Unit 
4662 Plotter 
Statements: Tape Version — 1625 
Disc Version — 1617 
Files: Tape Version 

4 ASCII Program 

3 Binary Data (Directory and 
Example) 

Requires pre-MARked data files 
Disc Version 

4 Binary Program 

10 Binary Data (Examples) 

The program generates a chart and graph of 
activity vs. time. 

The following is input: 

Project name — 2 Unes — 15 characters 
each 

Chart title — 45 characters 

Code — 16 characters 

Project Code — 6 characters 

Signatures — 2 Hues — 30 characters each 

Vertical row descriptions — single or dou- 
ble spaced — 4 rows maximum 

Horizontal row descriptions — single or 
double spaced — 16 rows maximum 

Weekly data for each row — 28 weeks 
maximum — beginning with a Sunday 

Charts are saved by name. File 5 of the tape 
version contains a directory of the charts by 
name. 



Weekly data my be edited for each week or 
selected weeks. 

Charts are generated for a 14 week period 
starting with a chosen beginning column 
date. 



Three selected rows of data may be graphed 
on one chart. The first selected row will be 
graphed with a solid line, the second with a 
dotted Hne, and the third with a dashed line. 

















JET STAR II 


SHORTAGE SUMMARY 








ACTIVITY 


1978 


SEP 


OCT 


NOV 


DEC 


17 24 


1 8 IS 22 29 


5 12 19 26 


3 10 17 




MAJOR ASSEMBLY 
SUBASSEMBLY 
FEEDER PLANTS 
TOTAL 


26/22 32/13 
6/98 9/88 
5/89 9/88 

37/22 41/13 


31/^6 36/04 49/21 36/14 29/88 
9/89 7/08 12/88 14/88 13/88 
2/88 9/93 9/83 12/91 8/98 

42/96 52/97 61/24 62/15 59/98 


38/87 
12/88 
6/08 
56/97 


36/93 32/13 59/82 
6/89 9/98 29/18 
5/08 8/88 0/00 

47/03 41/13 70/12 


40/21 
(2/9? 
9/93 
61/24 


26/22 36/84 
6/08 7/88 
3/88 9/02 

35/22 52/86 


n 


MAJOR ASSEMBLY 
SUBASSEMBLY 
FEEDER PLANTS 
TOTAL 


2/81 8/91 
2/81 1/88 
e/81 9/91 
4/93 1/02 


0/01 0/01 1/08 9/99 2/91 
1/99 9/88 2/88 1/88 1/88 
1/88 8/98 1/88 2/88 3/88 
2/81 0/01 4/98 3/98 6/81 


1/82 
1/82 
1/88 
3/94 


2/91 9/91 0/19 
2/91 1/98 1/09 
9/01 8/19 1/98 
4/83 1/11 2/18 


9/90 
2/00 
1/08 
3/08 


2/18 2/82 
9/19 1/80 
1/88 3/81 
3/28 6/03 


TOTAL LINE 4 CUSHION 


41/25 42/15 




59/11 


51/06 42/24 72/22 


64/24 


38/42 58/89 




TOTAL LINE 

•■•• TOTAL LINEICUSH 














158- 


















50- 




















SH 


ARED BY. H.V. HETOERSON 






"" 





PROJECT NAME #2 CHART TITLE (centered) PROJECT CODE 


ACTIVITY 


1950 


JAN 


FEB 


MAR 


APR 




5 12 19 26 


5 12 19 26 




1 


i 


HORIZONTAL DESCRIPTION 
NEXT TO A DOUBLE VERT 
DESCRIPTION GETS 25 
SPACES FOR TEXT 










i 


HORIZONTAL DESCRIPTION 
NEXT TO A SINGLE VERTICAL 
DESCRIPTION ens 27 SPACES 
FOR TEXT 

TEXT CAN BE 
INDENTED FOR 
SPECIAL REASONS 










m 

NO 
FOR 


IZONTAL DESCRIPTIONS WITH 
VERT DESC's GET 30 SPACES 
TEXT 










jjr 












A MAXIMUM OF 16 ROWS 










1': 


■aid 

m 1 










ROWS 






























.- 
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ABSTRACT # 51/00-0103/0 

Title: Capital Budget 

Author: David Mills 

Tektronix, Inc. 
Beaverton, OR 
Memory Requirement: 32K 
Peripherals: Optional — 

4631 Hard Copy Unit 
4662 Plotter 
Statements: 712 
Files: 1 ASCII Program 

1 ASCII Data (Project Directory) 
Automatically marks data files 

The program will build and maintain files of 
current capital budget projects. Up to 50 
projects may be stored on one tape, with 
standard information as: 

Rank 

Project description 

Budget (by quarter) 

Category 

Originator 

Actual cost 

Cumulative capital 

Up to 30 sub-items may contribute to a 
project including: 



Item description 

CCA number 

Cost 

Date 

Quarter 

All information may be examined or altered 
to correct errors or changes in budget, etc. 

Charts may be produced for one, or all 
projects, giving total project cost, cumulative 
cost, budget vs. actual expenditures, etc. 

Cumulative and quarterly graphs of budget 
vs. actual cost for any project, or the total of 
all projects may be drawn. 



PLASTICS 

CAPITAL BUDGET 

PROJECT FINANCIAL STATEMENT 



1 project: INSULATED HOPPERS «, DRYER j 
1 RANK: 1 category: 1 originator: 4735 | 


1 ITEM DESCRIPTION ICCANUMBERI DATE IQTRIIT 


-M COSTI CUf 


CAP 1 


HOPPER #1 
HOPPER REPA 


R 


1 10X1003 I06/12.-;73I 1 1 

1 10X1009 111/01/791 2 1 
1 112/10/791 3 1 


10 1 
8 1 
19 1 


19 1 
IS 1 

38 1 


PROJECT SUMMARY STATUS 


1 QTR 


1 1 


QTR 2 1 QTR 3 1 GTR 4 


TOTAL 




BUD 


ACT 1 B 


UD ACT 1 BUD 1 ACT 1 BUD 1 ACT 


BUD 1 ACT 
35 1 33 




23 


18 1 


" 1 1 1 1 

19 1 1 11 10 





PLASTICS 

CAPITAL BUDGET 

YEAR-TO-DATE FINANCIAL STATEMENT 


IRANK 


PROJECT IDENTIFICATION 1 CAT 1 ORIG IBUDGET 


ACTUAL 


CUM CAP 1 


1 2 
1 5 

1 e 


INSULATED HOPPERS 8, DRYER 1 1 1 4733 35 
COMPARATOR (OPTICAL) 1 3 1 4726 18 
CMC CONTROLLER 1 3 1 4733 140 
MILLING MACHINES 1 3 1 4733 60 
GRINDER 1 1 1 4733 45 
LATHE 1 1 1 4747 25 


38 

20 
25 
45 
25 


53 1 






QTR. 1 2 3 
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ABSTRACT # 51/07-6108/1 

Title: RECORDKEEP II 

Author: Jim Gish 

Tektronix, Inc. 
Irvine, CA 
Memory Requirement: 16K 
Peripherals: 4907 File Manager 
Optional — 

4631 Hard Copy Unit 
4641 Printer 
Statements: 2098 
Files: 13 ASCII Program 

This is a revised version of 51/07-6108/0; the 
purpose of the revision was to make minor 
changes to the program and provide multiple 
character support for the 4054 Graphic 



System. Data created with the previous 
version is compatible with this revision. 

Documentation has been added describing 
the process of adding additional tasks to 
RECORDKEEP II and descriptions of some 
of the utility subroutines contained in the 
program. 

RECORDKEEP II allows tables and Hsts to 
be created and stored on the 4907 File 
Manager. Reports can then be quickly 
generated from this table (database) through 
the RECORDKEEP II commands that 
allow editing, sorting, and table listing. 

Twelve commands are available. They are 
broken down into three functional groups. 



The first group provides the commands 
necessary to edit the table, which we will call 
a database or file. Commands in the second 
group include file management operations 
that allow saving databases and creating 
smaller tables from existing databases. These 
tables can also be sorted and Hsted to 
emphasize their content by the third func- 
tional group. RECORDKEEP II can be 
applied in areas where you need to store and 
manipulate small inventories, sales history 
records, personnel records, patient history, 
catalogues, and more. 



ABSTRACT # 51/00-0719/0 

Title: Depreciation 

Author: P.C. Holman 

University of Wisconsin 
Stevens Point, WI 

Memory Requirement: 16K 

Peripherals: None 

Statements: 459 

Files: 5 ASCII Program 



The program consists of five separate 
depreciation methods: 

1. Straight line 

2. Sum of digits 

3. Sum of digits, switch to straight Hne 

4. Double decUning balance 

5. Double decHning balance, switch to 
straight line 



Each program calculates a depreciation table 
using that particular method. Each contains 
examples and is tutorial. 



ABSTRACT # 51/07-9538/0 

Title: 4052/4 Drafting Program 

Author: Connie Breithaupt 
Tektronix, Inc. 
Rockville, MD 
Memory Requirement: 64K 
Peripherals: 4052 Graphic System, 
Option 24 
4907 File Manager 
4952 Joystick, Option 2 

or 
4054 Graphic System, 

Option 24 
4907 File Manager 
Optional — 

4631 Hard Copy Unit 
4662/4663 Plotter 
4956 Graphics Tablet 
Statements: 2321 
Files: 2 Binary Program 
1 Binary Data 
Requires pre-MARked data files 

The program allows a drawing to be defined 
by creating, modifying and/ or deleting its 
elements. The elements may be arrows, 
circles, lines, text, cross-hatching, and sub- 
drawings. The created drawing is called a 
Picture Data Base (PDB) and is stored on the 
4907 File Manager. Each PDB may contain 
100 different layers of display. For example. 
Layer 1 (the default layer) may show the 
PDB outHne, Layer 2 the dimensions, Layer 
3 the Hnework, etc. A frequently used symbol 
may be created as a PDB and then used as a 
Sub-PDB in other PDB's. 

Program commands include: 

CHANGE 

Dash line font 
Height of text 

COMPRESS 

DISPLAY 

All of current PDB 
Grid points 
Layer number 



END 
ERASE 

Arrow(s) 

Circle(s) 

Line(s) 

Sub-PDB(s) 

Text 

Cross-hatching(s) 
INSERT 

Arrow — horizontal 

Arrow — vertical 

Circle 

Line 

Sub-PDB 

Text 

Cross-hatching 
LIST 

Parameters — selectable 

PDB— contents 

PAGE 

Down 
Left 
Right 
Up 
PAUSE 

RESTART 

SAVE 
SELECT 

Angle — text 
Arrowhead size 
Dash code 
Figure (Sub-PDB) 
Grid interval 
Grid off 
Grid on 
Height — text 
Input device address 
Non-italic text 
ItaHc text 
Tolerance range 
Translation — amount 
Window 

Cross-hatching — angle, line displace- 
ment 

Layer number 
Output device address 



TRANSLATE 

Line — copies n times, increment, direc- 
tion 

ZOOM 

All- 
Down 
Up 
Window 



PAD(H) 



K— .250 

L: PAD (J) 



TRM-J 



a 



"J>PAD(H) 



GRW 


BAR 


COW 


TRM 


PADCH) 


PADCJ) 


"A" 


G56 


46 


87 ^ 


51 


35 


84 


7.50 


G64 


46 


92 


51 


35 


84 


750 



TEXT FEATURES 



CROSS HATCHING 



AFFERENT SEES 

fTAUCS 



CIRCLES DASH LINES DIMENSION ARROWS 

O^^ ______ Horizontal * 

^ Il'l'l'Il'l'L ^^^''^' I 

OTHER DRAFTING FEATURES 
Insert rotated and scaled sub-PDB's 
Translate lines 

Change line dash and text height 
Select and activate grid 
Zoom, window, and page PDB 
100 different layers 
Erasure of all inserted entitles 
Save PDB with selected name 
Output PDB to plotter 




ABSTRACT # 51/00-9537/0 

Title: Overlay Drawing Program 

Author: LeRoy Nollette 
Tektronix, Inc. 
Wilsonville, OR 
Memory Requirement: 16K 
Peripherals: 4662 Plotter 
Statements: 250 
Files: 1 ASCII Program 

2 ASCII Data (Sample Overlays) 
Optional — Pre-MARked data files 

The program drav^s an overlay on the 4662 
Plotter that can be cut out and placed over 



the User-Definable Keys. Key descriptions 
may be entered from the keyboard. Data 
may be saved on a pre-MARked data file and 
redrav^n at a later date. 

The program may be modified (one Hne of 
code) to draw a large copy of the overlay and 
then reduce it on a copy machine having 
reductions capabilities. 

By changing one Une of code the user may 
preview the overlay on the screen. 



THIS IS THE TITLE OF THE OVERLAY FOR THIS RUN 



SHIFT KEYS 



rv 


/ 








SHIFT KEYS 






\ 


o 


lUSER 


KEY 


lUSER 


KEY 


lUSER KEY lUSER 
NO. 18 NO. 


KEY 


lUSER 
NO. 


^3- 
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